home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / SMALLTAL.P < prev    next >
Text File  |  1990-09-13  |  1KB  |  52 lines
  1. temp <- <primitive 110 11 >
  2. <primitive 112 temp 1        " time: " \
  3.     #( #[ 250 0 161 114 33 165 242 250 0 161 34 193 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " sh: " \
  7.     #( #[ 33 250 1 125 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " perform:withArguments: " \
  11.     #( #[ 34 33 250 2 143 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " noDisplay " \
  15.     #( #[ 81 80 250 2 8 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " getString " \
  19.     #( #[ 250 0 163 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " doPrimitive:withArguments: " \
  23.     #( #[ 33 34 250 2 30 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " displayAssign " \
  27.     #( #[ 81 82 250 2 8 243 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 112 temp 8        " display " \
  31.     #( #[ 81 81 250 2 8 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 9        " debug: " \
  35.     #( #[ 82 33 250 2 8 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 10        " date " \
  39.     #( #[ 250 0 160 243 245] \
  40.     #(  ) ) >
  41.  
  42. <primitive 112 temp 11        " clearScreen " \
  43.     #( #[ 250 0 162 242 245] \
  44.     #(  ) ) >
  45.  
  46. <primitive 98 #Smalltalk \
  47.     <primitive 97 #Smalltalk #Dictionary #\smalltlk\prelude\smalltal.st \
  48.     #(  ) \
  49.     #( #time: #sh: #perform:withArguments: #noDisplay #getString #doPrimitive:withArguments: #displayAssign #display #debug: #date #clearScreen  ) \
  50.     temp 3 3 > >
  51.  
  52.